home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.3 / Video Toaster v4.3.iso / 3.1 / toasterall / arexx_examples / tpaint / grid.rexx < prev    next >
OS/2 REXX Batch file  |  1993-05-13  |  544b  |  31 lines
  1. /* Draw Grid Background */
  2. /* © 1993 NewTek, Inc.    by Arnie Cachelin */
  3.  
  4. arg siz
  5.  
  6. if siz="" then siz=80
  7.  
  8.  
  9. if pos('DigiPaint',show(ports))=0 then do
  10.   say "Can't find ToasterPaint!"
  11.   exit
  12. end
  13.  
  14. address 'DigiPaint' /* Tell ARexx where commands go */
  15. 'Drre'
  16. 'Flof'
  17. 'Hvof'                    /* Toggle Horiz and Vert. Gradient (off) */
  18. 'Dotb'
  19. 'Bsz2'
  20. 'Pmcl'
  21. do y=0 to 482 by siz
  22.     'Pend' 0 y
  23.     'Penu' 752 y
  24.   end
  25. do x=0 to 752 by (siz*1.3333)%1
  26.     'Pend' x 0
  27.     'Penu' x 482
  28.   end
  29. 'Shco'          /* Render to Program Out */
  30. exit            /* Bye bye! */
  31.